Imports System.Xml
Imports System.Data.SqlClient
Public Class dRecibo
    Public Function Existe(ByVal Numero As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If Numero <> "" Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        Return (dConexion.Consultar("STORE_TblReciboBUSCARFILTRADO", Parametros).Tables(0).Rows.Count = 1)
    End Function
    Public Function Insertar(ByVal Numero As String, ByVal Total As String, ByVal CodigoCliente As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If Numero <> "" Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        If Total <> "" Then
            Parametros.Add(New SqlParameter("@pETotal", CDbl(Total)))
        End If
        If CodigoCliente <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        End If
        Return dConexion.Consultar("STORE_TblReciboALTA", Parametros)
    End Function
    Public Function ModificarEstado(ByVal idRecibo As String, ByVal Estado As String) As Boolean
        Dim Parametros As ArrayList = New ArrayList
        If idRecibo <> "" Then
            Parametros.Add(New SqlParameter("@pEidRecibo", idRecibo))
        End If
        If Estado <> "" Then
            Parametros.Add(New SqlParameter("@pEEstado", Estado))
        End If
        Return dConexion.ABM("STORE_TblReciboModificarEstado", Parametros)
    End Function

  Public Function Eliminar(ByVal idRecibo as String) as BOOLEAN
     Dim Parametros As ArrayList = New ArrayList
     if idRecibo <> "" then 
       Parametros.Add(New SqlParameter("@pEidRecibo", idRecibo))
     End If
     Return dconexion.ABM("STORE_TblReciboELIMINAR", Parametros)
  End Function
    Public Function BuscarFiltrado(ByVal idRecibo As String, ByVal Numero As String, ByVal Fecha As String, ByVal Total As String, ByVal CodigoCliente As String) As DataSet
        Dim Parametros As ArrayList = New ArrayList
        If idRecibo <> "" Then
            Parametros.Add(New SqlParameter("@pEidRecibo", idRecibo))
        End If
        If Numero <> "" Then
            Parametros.Add(New SqlParameter("@pENumero", Numero))
        End If
        If Fecha <> "" Then
            Parametros.Add(New SqlParameter("@pEFecha", Fecha))
        End If
        If Total <> "" Then
            Parametros.Add(New SqlParameter("@pETotal", CDbl(Total)))
        End If
        If CodigoCliente <> "" Then
            Parametros.Add(New SqlParameter("@pECodigoCliente", CodigoCliente))
        End If
        Return dConexion.Consultar("STORE_TblReciboBUSCARFILTRADO", Parametros)
    End Function
End Class
